home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple Reference & Presen…tion Library 2 (Reseller)
/
Apple R&P Lib Reseller v2.0.iso
/
3-Demos
/
Third Party Demos
/
Networking
/
Farallon '89
/
Farallon 12
/
Farallon 12.rsrc
/
BITD_1050
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1989-05-01
|
611b
|
107 lines
<
<0xbc86d4>RSETPRINT<0x7d><0x7d>COMMON/
<0xbc86dc>CLOSE<0x7c><0x7f><0x7d>RND<0x7d><0x7f><0x5d>/
<0x7d>><0x7f><0x7c><0x7f>COMMON*
<0xbc86f3>=<0x7d>]OPENATN<0xfc,0x00>
XOR
<0xbc86fe><0x7f><0x7f>{ELSEATNPRINTc*
<0xbc8708><0x7d>EQV<0xfc,0x00>PUT<0x7e>+
<0xbc8711>RNDCOMMON<0xfc,0xfffffffc>RND+
PRINTCOMMON<0x7c>+
<0xbc8720>VCLOSE,X<0xfc,0xfffffffc>
^
<0xbc872a>92,3<0xfc,0xfffffffc>-
<0xbc8733>V^]]<0xfc,0xfffffffc>*
<0xbc873c>3W<0xfc,0xfffffffc>c-<0xfc,0xfffffffa>
<0xbc8746>ATNd^<0xfc,0xfffffffc><0xfc,0xfffffffa><0xfc,0xfffffffa>
ATNIMP
<0xbc8754>ATNOBJECT.PRIORITYi<0xfc,0xfffffffc>ASC<0xbc875c>3
]]EOFCOMMON<0x7c>^\
65246]ATN]W<0xfc,0x00>]]^COMMONCLOSERNDMOD
36482RNDCOMMONCOMMONCLOSE^]dATN<0x7c>PUT==MOD
<0xbc878b>COMMON+]cELSEPRINTdd^EQV<0x7d><0x7e>=EQV
<0xbc879b>RNDASC]ASCPUTRSETRNDCOMMONPRINT^AND
^]COMMONCOMMONRND^
]ASC<0x7f>CLOSE<0xfc,0x00>AND
<0x60><0x7e><0x7e><0x60><0x7e><0x7c>^
<0x60><0x7e>RND<0x7f><0x7d><0x7d>XOR^
<0x5f><0x7d><0x7d><0x7e><0x60>varfffffdb2^
varffffe0fe<0xbc881a>XORRNDXOR<0x56><0x7e><0x7e><0x5f>^
<0x7e><0x7d><0xbc8826>XORRND<0x7d><0x7d><0x7e><0x7e>^
varffffadfe<0x7e><0x7d><0x7d><0x56><0x7d>^
<0x7e><0x7d><0x7c><0x7e>
<0x7d>/
<0x7d><0x7e><0x7e><0x7d><0x7d><0x7f>OR
<0x7e>
<0xbc8851><0x7d><0x7e>XOR<0x7e><0x7e><0x7f><0x7d><0x7f>*
<0xbc885c>RSETPUT<0x5f>XOR<0x7d>COMMONPRINT<0x5f>/
<0xbc8867><0x7d>XOR<0x7d><0x7f>>XOREQV=^
<0x7d><0x7d><0xbc8874><0x7f><0x7e>RSET<0x7d><0x7e>AND
<0x7c><0x7d><0xbc887e><0x7e><0x7d><0x7e><0x7d><0x7d>MOD
<0x7c> <0x7e>=<0x7e>RND<0x7d><0x5f> XOR
<0xbc88f4><0x7e><0x7d><0x7d><0x7e><0x7e>RNDRND<0x7f>PUTPUT<0x7e>>MOD
varffffe0fe<0x7e><0x7d><0xbc8908><0x50><0x7e><0x7f>COMMON
<0x7d><0x7e>
=\
234<0x7d>RSET<0x7e>RND<0x7e><0x7d><0x60><0x7d>
<0x5f><0x7d>RND>RND<0xfb,0x00><0xbc8927>RND<0x7f>EQV<0x7e><0x7e><0x7d>XOR<0x7d><0x7d><0x7e><0x7d><0x7e>
<0xbc8935>XOR<0x7e><0x7d><0x7d>EQV<0xfb,0x00>varffffdffdlabelfffffffe<0x7e><0x7e><0x7d>varfffffffe<0x7c>
<0xbc894b><0x7e><0x5f><0x7e><0x7d>XOR<0xfb,0x00><0xbc8953><0x5f><0x7d><0x5f><0x7d><0x7e>><0x7d><0x7e><0xfb,0x00><0x7e><0x7e>varfffffdfe<0xfb,0x00><0xbc8965><0x5f><0x7d><0x7e>PUT<0x5f><0x7d>XOR<0xfb,0x00><0xbc896f><0x7e><0x7d>>RSET<0x60><0xfb,0x00><0xbc8977><0x7e><0x5f><0x7e>XOR<0x7e>\
<0xbc897f><0x7d><0x5f>XOR<0x7d><0x7f><0x7e>RND<0x7f><0x7e>
<0x7d><0x7e><0x7f>MOD
<0xbc8991><0x7d><0x7e><0x7e><0x7d><0x7e><0x7d><0x7d><0x7e>
<0xbc899b>
RND<0x7e><0x7f><0x7d>MOD
<0xbc89a3><0x7d><0x7e><0x7d><0x7e>RND<0xfb,0x00>labelffffb2b2<0x7f>EQV
<0x7d><0xfb,0x00>labelffffb2fe<0x60>>
<0x7f>>